Disc Station 10/Disc Station Vol 10.iso/main_dat/omake/qqq2.tpc

Text File | 1995-12-21 | 2.1 KB | 173 lines

;TITLE2
@LAY0
@WIN0
; âpâîâbâgÉ▌ÆΦ
@P 1,6,6,8
@P 2,7,7,9
@P 3,9,9,10
@P 4,10,10,11
;-----------
$XV=4        ;éwò√îⁿê┌ô«ù╩
$XA=0        ;éwò√îⁿë┴æ¼ôxÅëè·Ælüiâzâôâgé═éóéτé╚éóüj
$YV=0        ;éxò√îⁿê┌ô«ù╩
$YA=0        ;éxò√îⁿë┴æ¼ôxÅëè·Æl
;-----------
$GX=40
$GY=20
;-----------
$X1=40        ;éwì└òWÅëè·Æl
$Y1=10        ;éxì└òWÅëè·Æl
;-----------
$X2=$X1
$Y2=$Y1
$X3=$X1
$Y3=$Y1
$X4=$X1
$Y4=$Y1
$X5=$X1
$Y5=$Y1
$X0=$X1
$Y0=$Y1
;-----------
@L 24,20
é▒é±é╚é▒é╞éαé┼é½é▄é╖üm@O10ë╜é⌐âLü[é≡ëƒé╡é─ë║é│éó@C15#ün
$K=0
;==============================================================================
@WHILE $K!=1
@W3
;-----------
@LO $X0,$Y0
@C 0
ü£
@LO $X1,$Y1
@C 1
ü£
@LO $X2,$Y2
@C 2
ü£
@LO $X3,$Y3
@C 3
ü£
@LO $X4,$Y4
@C 4
ü£
@LO $X5,$Y5
@C 15
ü£
@KEY $K
;-----------
@IF $X5 < $GX :XOK3
;$XA=-1
@j :XOK4
:XOK3
;$XA=1
:XOK4
;-----------
@IF $Y5 < $GY :YOK3
;$YA=-1
@j :YOK4
:YOK3
;$YA=1
:YOK4
;-----------
$CX=$XV+$XA
$CX=$CX+$X5
@IF $CX > 2 :XOK1
$XV=0-$XV
:XOK1
@IF $CX < 75:XOK2
$XV=0-$XV
:XOK2
;-----------
$CY=$YV+$YA
$CY=$CY+$Y5
@IF $CY > 2 :YOK1
$YV=0-$YV
$YA=0-$YA
:YOK1
@IF $CY < 37:YOK2
$YV=$YV+$YA
$YV=0-$YV
:YOK2
;-----------
$XV=$XV+$XA
$YV=$YV+$YA
;-----------
@IF $XV > -6:XVO1
$XV=-6
@J :XVO2
:XVO1
@IF $XV < 6:XVO2
$XV=6
:XVO2
;-----------
@IF $YV > -6:YVO1
$YV=-6
@J :YVO2
:YVO1
@IF $YV < 6:YVO2
$YV=6
:YVO2
;-----------
$X0=$X1
$X1=$X2
$X2=$X3
$X3=$X4
$X4=$X5
$X5=$X5+$XV
;-----------
$Y0=$Y1
$Y1=$Y2
$Y2=$Y3
$Y3=$Y4
$Y4=$Y5
$Y5=$Y5+$YV
;-----------
@KEY $K
@sel $K
    @case 1,:ret
    @case 2,:up
    @case 3,:down
    @case 4,:left
    @case 5,:right
    @case 7,:ret
    @case 8,:ret
    @case 9,:ret
    @case 10,:ret
    @case 11,:ret
    @case 12,:ret
@send
@J :ret
;-----------
:up
$YV=$YV-1
@J :ret
;-----------
:down
$YV=$YV+1
@J :ret
;-----------
:left
$XV=$XV-1
@J :ret
;-----------
:right
$XV=$XV+1
:ret
;-----------
@WEND
;-----------
;==============================================================================
@CW
@P 1, 5, 9,15
@P 2,15, 5, 2
@P 3,14, 2,15
@P 4, 1,13, 5
;-----------
@pj0

;é╡é⌐é╡üAé▒é╠âtâ@âCâïüA
;ÆNé¬î⌐éΘé±é╛éδéñé╦éÑüEüEüE
;é▄éƒüAéóéóé⌐